home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 August / Software of the Month Club 1996 August.iso / pc / os2 / famtree / anndeath.ftx < prev    next >
Encoding:
Text File  |  1996-05-20  |  1.9 KB  |  76 lines
  1. /*
  2.    Family Tree Rexx Script FTX
  3.  
  4.    Copyright (C) 1996 by <Nils Meier>
  5.  
  6.    Please send comments to / Kommentar bitte an
  7.         meier2@athene.informatik.uni-bonn.de
  8.  
  9.    < This script shows the anniversaries of death in this year
  10.    / Dieses Skript zeigt die Todestage in diesem Jahr.>
  11.  
  12. */
  13.  
  14. /* ----------------------- Params  /  Parameter ------------------- */
  15.  
  16. datewidth=14
  17. namewidth=datewidth+30
  18.  
  19. IF getLanguage()='Deutsch' THEN DO
  20.    header    = 'Todestage. (naechster Jahrestag). Heute ist der '
  21. END
  22. ELSE DO
  23.    header    = 'Anniversary of Death (next anniversary). Today is '
  24. END
  25.  
  26. /* ----------------- Display Header / Kopf der Ausgabe ------------- */
  27.  
  28. SAY(header||DATE())
  29. SAY(................................................)
  30.  
  31.  
  32. /* ------------------------------ Output / Ausgabe ----------------- */
  33.  
  34. /* Sort Persons by Death Month,Day  /  Menschen sortieren nach Todesmonat,Tag */
  35. rc=sortPersons('DM,DD')
  36.  
  37. /* Calculate actual year  /  aktuelles Jahr berechnen */
  38. thisyear=WORD(DATE(),3)
  39.  
  40. /* Display persons in tree  /  Menschen ausgeben */
  41.  
  42. rc=selectPerson('F')
  43. DO UNTIL rc=0
  44.  
  45.    /* Get month of Death  /  berechne Monat des Todes */
  46.    result=getDeathDate('m')
  47.  
  48.    /* Check if we've got a month  /  nachpruefen ob wir Monat haben */
  49.    IF result<>'?' THEN DO
  50.  
  51.       /* Get Day of Death  /  berechne Todestag */
  52.       day=getDeathDate('D')
  53.       if day<>0 THEN
  54.          result=result||' '||day
  55.       result=LEFT(result,datewidth)
  56.  
  57.       /* Add name,first name  /  plus Name,Vorname */
  58.       result=result||getName()||','||getFirstName()
  59.       result=LEFT(result,namewidth)
  60.  
  61.       /* Add anniversary  /  plus Jahrestag */
  62.       year=getDeathDate('Y')
  63.       IF year<>0 THEN
  64.          result=result||' ('||thisyear-year||')'
  65.  
  66.       /* output  /  Ausgabe */
  67.       SAY(result)
  68.    END
  69.  
  70.    /* Next one */
  71.    rc=selectPerson('N')
  72. END
  73.  
  74. /* Done */
  75. RETURN
  76.